home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 014 / protect.arc / PROT.BAS next >
BASIC Source File  |  1984-10-31  |  1KB  |  32 lines
  1. 100 ' -- PROT.BAS (DOS 2.0) -- makes files read-only --  by Doug Lankshear
  2. 105 ' -- Minor Revisions by Matt Legare
  3. 110 Y=0
  4. 120 FOR I = 1 TO 80:READ X:Y=Y+X:NEXT I
  5. 130 IF Y = 6958 THEN GOTO 190
  6. 140 PRINT "Error in data Statements"
  7. 150 PRINT "Correct and restart"
  8. 160 END
  9. 170 '
  10. 180 '
  11. 190 RESTORE
  12. 195 PRINT "Writing PROT.COM to disk in drive A: . Be Patient."
  13. 200 OPEN"PROT.COM" FOR OUTPUT AS #1
  14. 210 FOR I = 1 TO 80
  15. 220 READ X
  16. 230 PRINT #1,CHR$(X);
  17. 240 NEXT I
  18. 250 CLOSE #1
  19. 260 PRINT "PROT.COM written to disk in drive A:"
  20. 270 END
  21. 275 '
  22. 280 DATA 190,128,0,254,4,138,28,136
  23. 290 DATA 0,184,0,67,185,0,0,186
  24. 300 DATA 130,0,205,33,60,2,117,10
  25. 310 DATA 180,9,186,48,1,205,33,235
  26. 320 DATA 9,144,128,201,1,184,1,67
  27. 330 DATA 205,33,195,0,0,0,0,0
  28. 340 DATA 66,97,100,32,112,97,116,104
  29. 350 DATA 110,97,109,101,32,111,114,32
  30. 360 DATA 102,105,108,101,32,110,111,116
  31. 370 DATA 32,102,111,117,110,100,13,36
  32.